#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: produce cluster plots of all the files in a directory-- deprecated due to Google API changes
#Usage: plotdir.pl <directory>

my $dir = shift;
chomp $dir;
mkdir "$dir_plots";
foreach my $file (`ls $dir`) {
	chomp $file;
	`./write_cluster_plot.pl $dir/$file | gnuplot > $dir\_plots/$file.ps`;
	`epspdf $dir\_plots/$file.ps`;
}
